--Factorial
fact x |  x>0     = (x * (fact (x-1)))
       |otherwise = 1

main =fact 9
